home *** CD-ROM | disk | FTP | other *** search
/ Mission 3 / Mission 3.zip / Mission 3.iso / zugabe / va45 / visual45 / library / extend / string.s < prev    next >
Text File  |  1998-05-16  |  2KB  |  62 lines
  1.  
  2.     ifd LIB_CHANGE_CASE
  3. ;------------------------------------------------------------------------------
  4. ; Method name : -
  5. ; Asm label   : GWVA_STRING_PUT_IN_UPPERCASE_0
  6. ; Description : Change le case en majuscule jusqu'au 1er 0.b
  7. ; Asm label   : GWVA_STRING_PUT_IN_UPPERCASE
  8. ; Description : Change le case en majuscule jusqu'à une valeur donnée
  9. ; 
  10. ; in  : a0.l = pointeur sur la chaine (terminé par 0.b pour GWVA_STRING_PUT_IN_UPPERCASE_0)
  11. ; in  : d0.w = identifiant de fin de chaine (pour GWVA_STRING_PUT_IN_UPPERCASE)
  12. ;
  13. ; 16/05/98 : Création
  14. ;------------------------------------------------------------------------------
  15. GWVA_STRING_PUT_IN_UPPERCASE_0:
  16.     clr.b d0
  17. GWVA_STRING_PUT_IN_UPPERCASE:
  18.     clr d1
  19. .next:    move.b (a0)+,d1
  20.     cmp.b d0,d1
  21.     beq.s .fin
  22.     cmp.w #'a',d1
  23.     blt.s .next
  24.     cmp.w #'z',d1
  25.     bgt.s .next
  26.     sub.b #'a'-'A',d1
  27.     move.b d1,-1(a0)
  28.     bra.s .next
  29.  
  30. .fin:    rts
  31.  
  32. ;------------------------------------------------------------------------------
  33. ; Method name : -
  34. ; Asm label   : GWVA_STRING_PUT_IN_LOWERCASE_0
  35. ; Description : Change le case en minuscule jusqu'au 1er 0.b
  36. ; Asm label   : GWVA_STRING_PUT_IN_LOWERCASE
  37. ; Description : Change le case en minuscule jusqu'à une valeur donnée
  38. ; 
  39. ; in  : a0.l = pointeur sur la chaine (terminé par 0.b pour GWVA_STRING_PUT_IN_LOWERCASE_0)
  40. ; in  : d0.w = identifiant de fin de chaine (pour GWVA_STRING_PUT_IN_LOWERCASE)
  41. ;
  42. ; 16/05/98 : Création
  43. ;------------------------------------------------------------------------------
  44. GWVA_STRING_PUT_IN_LOWERCASE_0:
  45.     clr.b d0
  46. GWVA_STRING_PUT_IN_LOWERCASE:
  47.     clr d1
  48. .next:    move.b (a0)+,d1
  49.     cmp.b d0,d1
  50.     beq.s .fin
  51.     cmp.w #'A',d1
  52.     blt.s .next
  53.     cmp.w #'Z',d1
  54.     bgt.s .next
  55.     add.b #'a'-'A',d1
  56.     move.b d1,-1(a0)
  57.     bra.s .next
  58.  
  59. .fin:    rts
  60.  
  61.     endc    ; ifd LIB_CHANGE_CASE
  62.